Option Explicit
'ۭqҲ
Private Sub UserForm_Initialize()
    With ListBox1
        .AddItem "Excel"
        .AddItem "Access"
    End With
End Sub

Private Sub TextBox1_Enter()
    MsgBox "TextBox1oJIC"
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    MsgBox "TextBox1hJIC"

End Sub

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    MsgBox "YNTextBox1@ܧC"
End Sub

Private Sub TextBox1_Change()
    MsgBox "TextBox1ƤwgQܧFC"
End Sub

Private Sub TextBox1_AfterUpdate()
    MsgBox "wTwTextBox1ƳQܧFC"
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _
                             ByVal Shift As Integer)
    MsgBox "bTextBox1KeyCode" & KeyCode & "QUF"
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    MsgBox "bTextBox1rX" & Chr(KeyAscii) & "QUF"
End Sub

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, _
                           ByVal Shift As Integer)
    MsgBox "bTextBox1KeyCode" & KeyCode & "Q}F"
End Sub

Private Sub TextBox1_MouseDown(ByVal Button As Integer, _
                               ByVal Shift As Integer, _
                               ByVal X As Single, _
                               ByVal Y As Single)
    Dim mystr As String
    mystr = "bTextBox1"
    Select Case Shift
        Case 0
        Case 1: mystr = mystr & "Shift +"
        Case 2: mystr = mystr & "Ctrl +"
        Case 4: mystr = mystr & "Alt +"
    End Select
    Select Case Button
        Case xlNoButton: mystr = mystr & ""
        Case xlPrimaryButton: mystr = mystr & "Ĥ@"
        Case xlSecondaryButton: mystr = mystr & "ĤG"
    End Select
    mystr = mystr & "QUF" & vbCrLf

    mystr = mystr & "ƹЪyЬX:=" & X & "Y:=" & Y & "C"
    MsgBox mystr
End Sub

Private Sub TextBox1_MouseMove(ByVal Button As Integer, _
                               ByVal Shift As Integer, _
                               ByVal X As Single, _
                               ByVal Y As Single)
    Dim mystr As String
    mystr = "bTextBox1"
    Select Case Shift
        Case 0
        Case 1: mystr = mystr & "Shift +"
        Case 2: mystr = mystr & "Ctrl +"
        Case 4: mystr = mystr & "Alt +"
    End Select
    Select Case Button
        Case xlNoButton: 'mystr = mystr & ""
        Case xlPrimaryButton: mystr = mystr & "Ĥ@Q"
        Case xlSecondaryButton: mystr = mystr & "ĤGQ"
    End Select
    mystr = mystr & "ƹQʤFC" & vbCrLf
    mystr = mystr & "ƹЪyЬX:=" & X & "Y:=" & Y & "C"
    MsgBox mystr
End Sub

Private Sub TextBox1_MouseUp(ByVal Button As Integer, _
                             ByVal Shift As Integer, _
                             ByVal X As Single, _
                             ByVal Y As Single)
    Dim mystr As String
    mystr = "bTextBox1"
    Select Case Shift
        Case 0
        Case 1: mystr = mystr & "Shift +"
        Case 2: mystr = mystr & "Ctrl +"
        Case 4: mystr = mystr & "Alt +"
    End Select
    Select Case Button
        Case xlNoButton: mystr = mystr & ""
        Case xlPrimaryButton: mystr = mystr & "Ĥ@"
        Case xlSecondaryButton: mystr = mystr & "ĤG"
    End Select
    mystr = mystr & "Q}F" & vbCrLf
    mystr = mystr & "ƹЪyЬX:=" & X & "Y:=" & Y & "C"
    MsgBox mystr
End Sub


Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    MsgBox "TextBox1QGUFC"
End Sub

Private Sub CommandButton1_Click()
    MsgBox "CommandButton1QIFC"
End Sub

Private Sub ComboBox1_DropButtonClick()
    MsgBox "wgHComboBox1Ӷ}MFC"
End Sub

Private Sub ScrollBar1_Change()
    MsgBox "ScrollBar1ȦFܤơC"
End Sub

Private Sub ScrollBar1_Scroll()
    MsgBox "ScrollBar1ʤʤFC"
End Sub

Private Sub SpinButton1_Change()
    MsgBox "SpinButton1ȦFܤơC"
End Sub

Private Sub SpinButton1_SpinUp()
    MsgBox "SpinButton1VWsQUFC"
End Sub

Private Sub SpinButton1_SpinDown()
    MsgBox "SpinButton1VUsQUFC"
End Sub

Private Sub ListBox1_Change()
    MsgBox "ListBox1ܶؤwgQܧFC"
End Sub

Private Sub ListBox1_Click()
    MsgBox "ListBox1QIFC"
End Sub
